C
C  This file is part of MUMPS 4.9.2, built on Thu Nov  5 07:05:08 UTC 2009
C
C
C  This version of MUMPS is provided to you free of charge. It is public
C  domain, based on public domain software developed during the Esprit IV
C  European project PARASOL (1996-1999) by CERFACS, ENSEEIHT-IRIT and RAL.
C  Since this first public domain version in 1999, the developments are
C  supported by the following institutions: CERFACS, CNRS, INPT(ENSEEIHT)-
C  IRIT, and INRIA.
C
C  Current development team includes Patrick Amestoy, Alfredo Buttari,
C  Abdou Guermouche, Jean-Yves L'Excellent, Bora Ucar.
C
C  Up-to-date copies of the MUMPS package can be obtained
C  from the Web pages:
C  http://mumps.enseeiht.fr/  or  http://graal.ens-lyon.fr/MUMPS
C
C
C   THIS MATERIAL IS PROVIDED AS IS, WITH ABSOLUTELY NO WARRANTY
C   EXPRESSED OR IMPLIED. ANY USE IS AT YOUR OWN RISK.
C
C
C  User documentation of any code that uses this software can
C  include this complete notice. You can acknowledge (using
C  references [1] and [2]) the contribution of this package
C  in any scientific publication dependent upon the use of the
C  package. You shall use reasonable endeavours to notify
C  the authors of the package of this publication.
C
C   [1] P. R. Amestoy, I. S. Duff, J. Koster and  J.-Y. L'Excellent,
C   A fully asynchronous multifrontal solver using distributed dynamic
C   scheduling, SIAM Journal of Matrix Analysis and Applications,
C   Vol 23, No 1, pp 15-41 (2001).
C
C   [2] P. R. Amestoy and A. Guermouche and J.-Y. L'Excellent and
C   S. Pralet, Hybrid scheduling for the parallel solution of linear
C   systems. Parallel Computing Vol 32 (2), pp 136-156 (2006).
C
      MODULE TOOLS_COMMON
      INTERFACE MUMPS_733
      SUBROUTINE MUMPS_754(ARRAY, MINSIZE, INFO, LP, FORCE, COPY,
     &     STRING, MEMCNT, ERRCODE)
      INTEGER, POINTER    :: ARRAY(:)
      INTEGER             :: MINSIZE, LP
      INTEGER             :: INFO(*)
      LOGICAL, OPTIONAL   :: FORCE
      LOGICAL, OPTIONAL   :: COPY
      CHARACTER, OPTIONAL :: STRING*(*)
      INTEGER, OPTIONAL   :: ERRCODE, MEMCNT
      END SUBROUTINE MUMPS_754
      SUBROUTINE MUMPS_752(ARRAY, MINSIZE, INFO, LP, FORCE, COPY,
     &     STRING, MEMCNT, ERRCODE)
      REAL(KIND(1.D0)), POINTER    :: ARRAY(:)
      INTEGER             :: MINSIZE, LP
      INTEGER             :: INFO(*)
      LOGICAL, OPTIONAL   :: FORCE
      LOGICAL, OPTIONAL   :: COPY
      CHARACTER, OPTIONAL :: STRING*(*)
      INTEGER, OPTIONAL   :: ERRCODE, MEMCNT
      END SUBROUTINE MUMPS_752
      SUBROUTINE MUMPS_750(ARRAY, MINSIZE, INFO, LP, FORCE, COPY,
     &     STRING, MEMCNT, ERRCODE)
      REAL(KIND(1.E0)), POINTER    :: ARRAY(:)
      INTEGER             :: MINSIZE, LP
      INTEGER             :: INFO(*)
      LOGICAL, OPTIONAL   :: FORCE
      LOGICAL, OPTIONAL   :: COPY
      CHARACTER, OPTIONAL :: STRING*(*)
      INTEGER, OPTIONAL   :: ERRCODE, MEMCNT
      END SUBROUTINE MUMPS_750
      SUBROUTINE MUMPS_753(ARRAY, MINSIZE, INFO, LP, FORCE, COPY,
     &     STRING, MEMCNT, ERRCODE)
      COMPLEX(KIND((1.D0,1.D0))), POINTER    :: ARRAY(:)
      INTEGER             :: MINSIZE, LP
      INTEGER             :: INFO(*)
      LOGICAL, OPTIONAL   :: FORCE
      LOGICAL, OPTIONAL   :: COPY
      CHARACTER, OPTIONAL :: STRING*(*)
      INTEGER, OPTIONAL   :: ERRCODE, MEMCNT
      END SUBROUTINE MUMPS_753
      SUBROUTINE MUMPS_751(ARRAY, MINSIZE, INFO, LP, FORCE, COPY,
     &     STRING, MEMCNT, ERRCODE)
      COMPLEX(KIND((1.E0,1.E0))), POINTER    :: ARRAY(:)
      INTEGER             :: MINSIZE, LP
      INTEGER             :: INFO(*)
      LOGICAL, OPTIONAL   :: FORCE
      LOGICAL, OPTIONAL   :: COPY
      CHARACTER, OPTIONAL :: STRING*(*)
      INTEGER, OPTIONAL   :: ERRCODE, MEMCNT
      END SUBROUTINE MUMPS_751
      END INTERFACE
      END MODULE
